home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 May / Macworld (1999-05).dmg / Shareware World / Comms & Internet / Net.Dreams Remote Mail 1.0 / RM-Frames / login.remotemail < prev    next >
Encoding:
Text File  |  1999-02-15  |  2.9 KB  |  103 lines  |  [TEXT/R*ch]
  1. <HTML>
  2.     <HEAD>
  3.         <TITLE>Remote Mail Login</TITLE>
  4.         
  5. <script language="JavaScript">
  6.  
  7. function SetCookie (name, value) {
  8.          var argv = SetCookie.arguments;
  9.          var argc = SetCookie.arguments.length;
  10.          var expires = (argc > 2) ? argv[2] : null;
  11.          var path = (argc > 3) ? argv[3] : null;
  12.          var domain = (argc > 4) ? argv[4] : null;
  13.          var secure = (argc > 5) ? argv[5] : false;
  14.          document.cookie = name + "=" + escape (value) +
  15.          ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
  16.          ((path == null) ? "" : ("; path=" + path)) +
  17.          ((domain == null) ? "" : ("; domain=" + domain)) +
  18.          ((secure == true) ? "; secure" : "");
  19. }
  20.  
  21. function setC(form) {
  22.              var expdate = new Date ();
  23.              expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 1000 * 31));
  24.              SetCookie (form.name, form.value, expdate);
  25. }
  26.  
  27. // Get Cookie Value function
  28. function getCookieVal(offset) {
  29.    var endstr = document.cookie.indexOf (";", offset);
  30.    if (endstr == -1) endstr = document.cookie.length;
  31.    return unescape (document.cookie.substring(offset, endstr));
  32. }
  33.  
  34. // Get Cookie function
  35. function GetCookie(name) {
  36.    var arg = name+"=";
  37.    var alen = arg.length;
  38.    var clen = document.cookie.length;
  39.    var i = 0;
  40.    while (i < clen) {
  41.       var j = i + alen;
  42.       if (document.cookie.substring(i, j) == arg) return getCookieVal(j);
  43.       i = document.cookie.indexOf(" ", i) + 1;
  44.       if (i == 0) break;
  45.    }
  46.    return null;
  47. }
  48.  
  49. //my test
  50. function setValues() {
  51. if (GetCookie('new_user') != null)
  52. document.LoginForm.new_user.value=GetCookie('new_user');
  53. if (GetCookie('new_mailhost') != null)
  54. document.LoginForm.new_mailhost.value=GetCookie('new_mailhost');
  55. if (GetCookie('new_return_address') != null)
  56. document.LoginForm.new_return_address.value=GetCookie('new_return_address');
  57. }
  58. </script>
  59.  
  60. </head>
  61.  
  62.         
  63.     </HEAD>
  64.     <BODY BGCOLOR="#e0f0e0" onload="setValues()">
  65.     
  66. <FORM ACTION="mailbox.remotemail$[xid]" METHOD=POST TARGET="mailboxFrame" NAME="LoginForm">
  67. <TABLE BGCOLOR="#d0e0d0" CELLSPACING="5">
  68. <TR>
  69.     <TD ALIGN=RIGHT>
  70.     <FONT SIZE="-2" FACE="geneva, verdana">POP login name</FONT>
  71.     </TD>
  72.     <TD ALIGN=LEFT><INPUT TYPE=TEXT NAME="new_user" SIZE="50" onChange="setC(this)"></TD>
  73. </TR>
  74. <TR>
  75.     <TD ALIGN=RIGHT>
  76.     <FONT SIZE="-2" FACE="geneva, verdana">password</FONT>
  77.     </TD>
  78.     <TD ALIGN=LEFT><INPUT TYPE=PASSWORD NAME="new_password" SIZE="50"></TD>
  79. </TR>
  80. <TR>
  81.     <TD ALIGN=RIGHT>
  82.     <FONT SIZE="-2" FACE="geneva, verdana">POP host name</FONT>
  83.     </TD>
  84.     <TD ALIGN=LEFT><INPUT TYPE=TEXT NAME="new_mailhost" SIZE="50" onChange="setC(this)"></TD>
  85. </TR>
  86. <TR>
  87.     <TD ALIGN=RIGHT>
  88.     <FONT SIZE="-2" FACE="geneva, verdana">return address</FONT>
  89.     </TD>
  90.     <TD ALIGN=LEFT><INPUT TYPE=TEXT NAME="new_return_address" SIZE="50" onChange="setC(this)"></TD>
  91. </TR>
  92. <TR>
  93.     <TD ALIGN=RIGHT>
  94.     </TD>
  95.     <TD ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE="log In"></TD>
  96. </TR>
  97. </TABLE>
  98. </FORM>
  99.  
  100.  
  101.     </BODY>
  102. </HTML>
  103.